home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / sn_phnchk10.lha / PhoneChecker < prev   
Encoding:
Text File  |  1995-01-28  |  443 b   |  8 lines
  1. /* SN PhoneChecker v1.0 */
  2. options results;call CAR;gu=getuser;ss=sendstring;gu 10;l4=right(result,4);cnt=0
  3. ss"n1c9Last four digits of your data phone number:     "
  4. GO:;ss"h4ca";do i=1 to 4;getchar;a.i=result;ss a.i;call CAR;end
  5. a=a.1||a.2||a.3||a.4;if a=l4 then do;ss"h4c9Confirmed!n1";exit;end
  6. cnt=cnt+1;if cnt=3 then do;ss"h4c9Failed!n1";gu 7;addtime 0-result;exit;end;signal GO
  7. CAR:;getcarrier;if result="FALSE" then exit;return
  8.